perm filename GETMID.DFI[MAC,LSP] blob
sn#464213 filedate 1979-08-10 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00009 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 1,1
C00006 00003 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 1,1
C00008 00004 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 2,2
C00011 00005 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
C00014 00006 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
C00017 00007 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
C00019 00008 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
C00021 00009 1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
C00022 ENDMK
C⊗;
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 1,1
**** File 1) GETMID.NEW[MAC,LSP], Page 1 line 1
1) COMMENT ⊗ VALID 00006 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 -*-MIDAS-*-
1) C00006 00003
1) C00009 00004
1) C00013 00005
1) C00025 00006
1) C00026 ENDMK
1) C⊗;
1) ;;; -*-MIDAS-*-
1) ;;; **************************************************************
1) ;;; ***** MACLISP ****** MIDAS OP-DECODER (GETMIDASOP) ***********
1) ;;; **************************************************************
1) ;;; ** (C) COPYRIGHT 1978 MASSACHUSETTS INSTITUTE OF TECHNOLOGY **
1) ;;; ****** THIS IS A READ-ONLY FILE! (ALL WRITES RESERVED) *******
1) ;;; **************************************************************
1) TITLE ***** MACLISP ****** MIDAS OP-DECODER (GETMIDASOP) ***********
1) .FASL
1) IF1,[
1) IFE .OSMIDAS-<SIXBIT \ITS\>,[
1) IFNDEF D10, D10==0
1) IFNDEF D20, D20==0
1) IFNDEF ITS,[
1) IFE D10+D20, ITS==1
1) .ELSE ITS==0
1) ]
1) DEFINE $INSRT $%$%$%
1) .INSRT $%$%$% >
1) PRINTX \ ==> INSERTED: \
1) $FNAME .IFNM1
1) PRINTX \ \
1) $FNAME .IFNM2
**** File 2) GETMID.12[MAC,LSP], Page 1 line 1
2) COMMENT ⊗ VALID 00005 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00002 00002
2) C00005 00003
2) C00008 00004
2) C00012 00005 FOR THE SAIL VERSION THE FOLLOWING OPCODES ARE DEFINED
2) C00025 ENDMK
2) C⊗;
2) ;;; **************************************************************
2) TITLE ***** MACLISP ****** MIDAS OP-DECODER (GETMIDASOP) ***********
2) ;;; **************************************************************
2) ;;; ** (C) COPYRIGHT 1976 MASSACHUSETTS INSTITUTE OF TECHNOLOGY **
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 1,1
2) ;;; ****** THIS IS A READ-ONLY FILE! (ALL WRITES RESERVED) *******
2) ;;; **************************************************************
2) ;;; IF ASSEMBLING SAIL VERSION, SET SAIL AND D10 ON!!
2) .FASL
2) SAIL==1
2) D10==1
2) ITS==0
2) DEFINE $INSRT $%$%$%
2) .INSRT $%$%$%!.MID
2) PRINTX \INSERTED: \
2) $FNAME .IFNM1
2) PRINTX \.\
2) $FNAME .IFNM2
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 2 line 32
1) ] ;END OF IFE .OSMIDAS-<SIXBIT \ITS\>,
1) IFE .OSMIDAS-<SIXBIT \DEC\>,[
1) IFNDEF D10, D10==1
1) IFNDEF ITS,[
1) IFE D10, ITS==1
1) .ELSE ITS==0
1) ]
1) DEFINE $INSRT $%$%$%
1) .INSRT $%$%$%!.MID
1) PRINTX \INSERTED: \
1) $FNAME .IFNM1
1) PRINTX \.\
1) $FNAME .IFNM2
1) PRINTX \
1) \
1) TERMIN
1) ] ;END OF IFE .OSMIDAS-<SIXBIT \DEC\>,
1) IFE .OSMIDAS-<SIXBIT \TWENEX\>,[
1) IFNDEF D20, D20==1
1) IFNDEF ITS,[
1) IFE D20*D10, ITS==1
1) .ELSE ITS==0
1) ]
1) DEFINE $INSRT $%$%$%
1) .INSRT $%$%$%!.MID
1) PRINTX \INSERTED: \
1) $FNAME .IFNM1
1) PRINTX \.\
1) $FNAME .IFNM2
1) PRINTX \
1) \
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 2,2
1) TERMIN
1) ] ;END OF IFE .OSMIDAS-<SIXBIT \TWENEX\>,
1) IFNDEF $INSRT, .FATAL SO WHAT KIND OF OPERATING SYSTEM IS THIS ANYWAY???
**** File 2) GETMID.12[MAC,LSP], Page 2 line 28
2) IFNDEF $INSRT, .FATAL SO WHAT KIND OF OPERATING SYSTEM IS THIS ANYWAY???
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 2 line 79
1) $INSRT DEFNS
1) ] ;END OF IF1
1) IFN ITS+D10+D20-1,[
1) INFORM [
1) ITS=]\ITS,[ D10=]\D10,[ D20=]\D20
1) .FATAL ITS AND D10,D20 SWITCHES NOT CONSISTENT
1) ] ;END OF IFN ITS+D10+D20-1
1) IFN D10,[
**** File 2) GETMID.12[MAC,LSP], Page 2 line 40
2) .INSRT DEFNS.92[MAC,LSP]
2) IFN ITS+D10-1,[
2) INFORM [
2) ITS=]\ITS,[ D10=]\D10
2) .FATAL ITS AND D10 SWITCHES NOT CONSISTENT
2) ] ;END OF IFN ITS+D10-1
2) IFN D10,[
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 2 line 93
1) IFN D20,[
1) PRINTX \ASSEMBLING TWENEX OP DECODER
1) \
**** File 2) GETMID.12[MAC,LSP], Page 2 line 52
2) IFN SAIL,[
2) PRINTX \ SAIL VERSION
2) \
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 3
1) OPTABL: OP A,OP.A ;INITIAL LETTERS FOR
**** File 2) GETMID.12[MAC,LSP], Page 5 line 1
2) ;;; FOR THE SAIL VERSION THE FOLLOWING OPCODES ARE DEFINED
2) ;;; CLKINT 717
2) ;;; DPYCLR 701
2) ;;; MAIL 710
2) ;;; PGIOT 715
2) ;;; PPIOT 702
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
2) ;;; PTYUUO 711
2) ;;; TTYUUO 051
2) ;;; UPGIOT 703
2) ;;; UPGMVE 713
2) ;;; UPGMVM 714
2) OPTABL: OP A,OP.A ;INITIAL LETTERS FOR
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 40
1) 10% OP IR,OP.CIR,243 ;CIRC (AI-ITS ONLY)
1) 10$ OP LO,OP.%SE,070 ;CLOSE (D10 ONLY)
1) OP AL,OP.CAL,,* ;CALL, CALLF; CALLI
1) OPTB OP.D:,2
1) OP IV,OP.IMB,234 ;DIV--
**** File 2) GETMID.12[MAC,LSP], Page 5 line 50
2) SA$ OP HN,OP.STS,716 ;CHNSTS (SAIL)
2) 10% OP IR,OP.CIR,243 ;CIRC (AI-ITS ONLY)
2) SA$ OP LK,OP.INT,717 ;CLKINT (SAIL)
2) 10$ OP LO,OP.%SE,070 ;CLOSE (D10 ONLY)
2) OP AL,OP.CAL,,* ;CALL, CALLF; CALLI (D10 ONLY)
2) OPTB OP.D:,2
2) SA$ OP PY,OP.DPY,701 ;DPYCLR (SAIL)
2) OP IV,OP.IMB,234 ;DIV--
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 74
1) OP OJ,OP.RS,012 ;IOJ---
1) OP OR,OP.IMB,434 ;IOR--
**** File 2) GETMID.12[MAC,LSP], Page 5 line 87
2) OP OR,OP.IMB,434 ;IOR--
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 80
1) 10$ OP NB,OP.%UF,064 ;INBUF (D10 ONLY)
**** File 2) GETMID.12[MAC,LSP], Page 5 line 92
2) SA$ OP OP,OP.IOP,724 ;IOPDL,IOPOP,IOPUSH
2) 10$ OP NB,OP.%UF,064 ;INBUF (D10 ONLY)
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 94
1) 20$ OP SY,OP.%%S,104 ;JSYS (TWENEX ONLY)
1) OP FF,OP.%%O,243,* ;JFFO
**** File 2) GETMID.12[MAC,LSP], Page 5 line 107
2) OP FF,OP.%%O,243,* ;JFFO
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 104
1) OP OV,OP.MOV,200 ;MOV--
**** File 2) GETMID.12[MAC,LSP], Page 5 line 116
2) SA$ OP AI,OP.MAI ;MAIL (SAIL)
2) OP OV,OP.MOV,200 ;MOV--
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 118
1) OP US,OP.PUS,260 ;PUSHJ, PUSH
**** File 2) GETMID.12[MAC,LSP], Page 5 line 131
2) SA$ OP TY,OP.UUO,711 ;PTYUUO (SAIL)
2) SA$ OP PI,OP.OT,702 ;PPIOT (SAIL)
2) SA$ OP GI,OP.OT,715 ;PGIOT (SAIL)
2) OP US,OP.PUS,260 ;PUSHJ, PUSH
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 135
1) OP TR,OP.%$T,007,* ;STRT
1) OPTB OP.T:,1
1) 10$ OP T,OP.TT,051 ;TTYCAL (D10 ONLY)
1) OP R,OP.ZCO,600 ;TR--
**** File 2) GETMID.12[MAC,LSP], Page 5 line 151
2) OP TR,OP.%%T,007,* ;STRT
2) OPTB OP.T:,1
2) 10$ OP T,OP.TT,051 ;TTYCAL (D10 ONLY) AND TTYUUO (SAIL)
2) OP R,OP.ZCO,600 ;TR--
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 145
1) 10$ OP GE,OP.UGE ;UGETF (D10 ONLY)
**** File 2) GETMID.12[MAC,LSP], Page 5 line 161
2) SA$ OP PG,OP.UPG ;UPG--- (SAIL)
2) 10$ OP GE,OP.UGE ;UGETF (D10 ONLY)
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 232
1) OP 3,,004,* ; LER3
1) OPTB OP.MOV:,1 ;MOVE MODIFIERS
**** File 2) GETMID.12[MAC,LSP], Page 5 line 249
2) OP 3,,004 ; LER3
2) OPTB OP.MOV:,1 ;MOVE MODIFIERS
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 253
1) OPTB OP.RS:,2 ;IOJRST
1) OP RS,OP.RST,0,*
1) OPTB OP.RST:,1
1) OP T,,0,*
1) OPTB OP.SET:,1
**** File 2) GETMID.12[MAC,LSP], Page 5 line 270
2) OPTB OP.SET:,1
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 281
1) OP H,,0,* ;EXCH
1) OPTB OP.%NT:,2
**** File 2) GETMID.12[MAC,LSP], Page 5 line 293
2) OP H,,0,* ;EXCH, IOPUSH (SAIL)
2) OPTB OP.%NT:,2
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 290
1) OP T,,0,* ;JRST
1) OPTB OP.%$T:,2
1) OP T-,,0 ;STRT
1) OP T7,,4,* ;STRT7
1) OPTB OP.%%O:,1
1) OP O,,0,* ;JFFO
1) IFN D10,[ ;MANY ENTRIES JUST FOR DECSYSTEM-10
1) OPTB OP.UGE:,2
**** File 2) GETMID.12[MAC,LSP], Page 5 line 302
2) OP T,,0,* ;JRST, STRT, UPGIOT, CLKINT
2) OPTB OP.%%O:,1
2) OP O,,0,* ;JFFO, PTYUUO
2) IFN SAIL,[ ;ENTRIES FOR SAIL UUOS
2) OPTB OP.INT:,2
2) OP IN,OP.%%T,0,* ;CLKINT
2) OPTB OP.DPY:,2
2) OP CL,OP.%%R,,* ;DPYCLR
2) OPTB OP.%%R:,1
2) OP R,,0,* ;DPYCLR
2) OPTB OP.%YC:,2
2) OP LR,,701,* ;DPYCLR
2) OPTB OP.IOP:,2
2) OP DL,,2 ;IOPDL
2) OP OP,,1 ;IOPOP
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
2) OP US,OP.%%H,0,* ;IOPUSH
2) OPTB OP.MAI:,1
2) OP L,,710,* ;MAIL
2) OPTB OP.OT:,2
2) OP OT,,0,* ;PPIOT, PGIOT
2) OPTB OP.UUO:,2
2) OP UU,OP.%%O ;PTYUUO
2) OPTB OP.%UO:,2
2) OP UO,,0,* ;TTYUUO
2) OPTB OP.UPG:,2
2) OP IO,OP.%%T,703 ;UPGIOT
2) OP MV,OP.UPM,713,* ;UPGMVE
2) OPTB OP.UPM:,1
2) OP E,,0 ;UPGMVE
2) OP M,,1,* ;UPGMVM
2)
2) ]
2) IFN D10,[ ;MANY ENTRIES JUST FOR DECSYSTEM-10
2) OPTB OP.UGE:,2
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 320
1) OP CA,OP.%LL,,* ;TTCALL
1) OPTB OP.STS:,2
1) OP ST,OP.%%S,,* ;GETSTS, SETSTS
1) OPTB OP.%SE:,2
**** File 2) GETMID.12[MAC,LSP], Page 5 line 356
2) SA$ OP YU,OP.%UO,0 ;TTYUUO (SAIL)
2) OP CA,OP.%LL,,* ;TTCALL
2) OPTB OP.STS:,2
2) OP ST,OP.%%S,,* ;GETSTS, SETSTS, CHNSTS (SAIL)
2) OPTB OP.%SE:,2
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 339
1) OPTB OP.%%E:,1
**** File 2) GETMID.12[MAC,LSP], Page 5 line 376
2) OPTB OP.%%S:,1
2) OP S,,0,* ;RELEAS AND CHNSTS (SAIL)
2) OPTB OP.%%E:,1
***************
**** File 1) GETMID.NEW[MAC,LSP], Page 5 line 343
1) IFN D10+D20,[
1) OPTB OP.%%S:,1
1) GETMID.NEW[MAC,LSP] and 2) GETMID.12[MAC,LSP] 8-10-79 04:03 pages 5,5
1) OP S,,0,* ;RELEAS, JSYS
1) ] ;END OF IFN D10+D20
1) ;;; OPCODE TABLE MUST HAVE LESS THAN 1000 ENTRIES
**** File 2) GETMID.12[MAC,LSP], Page 5 line 383
2) ;;; OPCODE TABLE MUST HAVE LESS THAN 1000 ENTRIES
***************